object FrmBillRuleSet: TFrmBillRuleSet
  Left = 0
  Top = 0
  Caption = #36816#21333#35268#21017#35774#23450
  ClientHeight = 487
  ClientWidth = 990
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object cxGroupBox1: TcxGroupBox
    Left = 0
    Top = 0
    Align = alTop
    TabOrder = 0
    Height = 44
    Width = 990
    object cxButton4: TcxButton
      Left = 200
      Top = 5
      Width = 83
      Height = 35
      Action = actDel
      TabOrder = 0
    end
    object cxButton3: TcxButton
      Left = 111
      Top = 5
      Width = 83
      Height = 35
      Action = actEdit
      TabOrder = 1
    end
    object cxButton1: TcxButton
      Left = 22
      Top = 5
      Width = 83
      Height = 35
      Action = actNew
      TabOrder = 2
    end
    object cxButton2: TcxButton
      Left = 289
      Top = 5
      Width = 83
      Height = 35
      Action = actRefresh
      TabOrder = 3
    end
  end
  object GrdQRCode: TcxGrid
    Left = 0
    Top = 44
    Width = 990
    Height = 443
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object tvQRCode: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = dsBillRule
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsCustomize.ColumnsQuickCustomization = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NoDataToDisplayInfoText = '<'#27809#26377#25968#25454'>'
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.IndicatorWidth = 30
      object tvQRCodeTYPECODE: TcxGridDBColumn
        DataBinding.FieldName = 'TYPECODE'
        HeaderAlignmentHorz = taCenter
        Width = 140
      end
      object tvQRCodeNAME: TcxGridDBColumn
        DataBinding.FieldName = 'NAME'
        HeaderAlignmentHorz = taCenter
        Width = 139
      end
      object tvQRCodeBILL_PRE: TcxGridDBColumn
        DataBinding.FieldName = 'BILL_PRE'
        HeaderAlignmentHorz = taCenter
        Width = 87
      end
      object tvQRCodeBILL_LONG: TcxGridDBColumn
        DataBinding.FieldName = 'BILL_LONG'
        HeaderAlignmentHorz = taCenter
      end
      object tvQRCodeBEGIN_NO: TcxGridDBColumn
        DataBinding.FieldName = 'BEGIN_NO'
        HeaderAlignmentHorz = taCenter
        Width = 96
      end
      object tvQRCodeCURRENT_NO: TcxGridDBColumn
        DataBinding.FieldName = 'CURRENT_NO'
        HeaderAlignmentHorz = taCenter
        Width = 85
      end
      object tvQRCodeCRT_DT: TcxGridDBColumn
        DataBinding.FieldName = 'CRT_DT'
        HeaderAlignmentHorz = taCenter
      end
      object tvQRCodeCRT_BY: TcxGridDBColumn
        DataBinding.FieldName = 'CRT_BY'
        HeaderAlignmentHorz = taCenter
      end
    end
    object lvEXP_COMP: TcxGridLevel
      GridView = tvQRCode
    end
  end
  object crsBillRule: TClientRowSet
    Aggregates = <>
    AfterInsert = crsBillRuleAfterInsert
    BeforePost = crsBillRuleBeforePost
    BeforeDelete = crsBillRuleBeforeDelete
    AppServer = Dm.AppServer
    TableName = 'BAS_BILLRULE_SETTING'
    Left = 488
    Top = 248
    object crsBillRuleID: TStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 50
    end
    object crsBillRuleTYPECODE: TStringField
      Tag = 1
      DisplayLabel = #21495#27573#20195#30721
      FieldName = 'TYPECODE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleNAME: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'NAME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleBILL_LONG: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = #21333#21495#38271#24230
      FieldName = 'BILL_LONG'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleBEGIN_NO: TStringField
      DisplayLabel = #24320#22987#21495#30721
      FieldName = 'BEGIN_NO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleGROUP_CODE: TStringField
      FieldName = 'GROUP_CODE'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCRT_DT: TStringField
      DisplayLabel = #21019#24314#26102#38388
      FieldName = 'CRT_DT'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCRT_BY: TStringField
      DisplayLabel = #21019#24314#20154#21592
      FieldName = 'CRT_BY'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleUPDATE_DT: TStringField
      DisplayLabel = #26356#26032#26102#38388
      FieldName = 'UPDATE_DT'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleVERSION: TSmallintField
      DisplayLabel = #29256#26412#21495
      FieldName = 'VERSION'
      ProviderFlags = [pfInUpdate]
    end
    object crsBillRuleCURRENT_NO: TStringField
      DisplayLabel = #24403#21069#24207#21015#21495
      FieldName = 'CURRENT_NO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object crsBillRuleBILL_PRE: TStringField
      DisplayLabel = #21333#21495#21069#36749
      FieldName = 'BILL_PRE'
    end
  end
  object dsBillRule: TDataSource
    DataSet = crsBillRule
    OnStateChange = dsBillRuleStateChange
    Left = 560
    Top = 248
  end
  object crsSysDict: TClientRowSet
    Aggregates = <>
    CommandText = 'select * from sys_dict_detail where 1=2'
    AppServer = Dm.AppServer
    Left = 488
    Top = 312
    object crsSysDictPARAMCODE: TStringField
      DisplayWidth = 30
      FieldName = 'PARAMCODE'
    end
    object crsSysDictPARAMCAP: TStringField
      FieldName = 'PARAMCAP'
      Size = 50
    end
  end
  object dsSysDict: TDataSource
    DataSet = crsSysDict
    Left = 560
    Top = 312
  end
  object ActionList1: TActionList
    Images = FrmConsole.img32
    Left = 416
    Top = 312
    object actNew: TAction
      Caption = #26032#24314
      ImageIndex = 139
      OnExecute = actNewExecute
    end
    object actEdit: TAction
      Caption = #32534#36753
      ImageIndex = 163
      OnExecute = actEditExecute
    end
    object actDel: TAction
      Caption = #21024#38500
      ImageIndex = 45
      OnExecute = actDelExecute
    end
    object actRefresh: TAction
      Caption = #21047#26032
      ImageIndex = 161
      OnExecute = actRefreshExecute
    end
  end
end
